home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / card1.d64 / menucs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  2.2 KB  |  68 lines
  1. 450 PRINT"[147]"
  2. 460 POKE53281,0:POKE53280,0
  3. 520 PRINT""
  4. 530 PRINT" [150][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  5. 540 FOR X=1 TO 21
  6. 550 PRINT" [180]                                    [170]"
  7. 560 NEXTX
  8. 570 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  9. 575 PRINT"CA[159]R[156]D S[158]H[151]A[158]RKS[156]  [156]TM"
  10. 580 PRINT""
  11. 590 FOR X=1 TO 16
  12. 600 READ B$
  13. 610 F=LEN(B$):CE=(40-F)/2
  14. 620 PRINTTAB(CE);"[159]";B$
  15. 630 NEXTX
  16. 810 RO=3:CO=3:CL=2:OS=1
  17. 820 POKE53269,0:FORQR=832TO832+64:POKEQR,0:NEXT
  18. 830 FORQR=832TO832+62:READ QT:POKEQR,QT:NEXT
  19. 840 POKE53271,0:POKE53275,0:POKE53276,0:POKE53277,0:POKE53287,CL
  20. 850 CO=(CO*8)+18:IFCO>255 THEN CO=CO-256:POKE53264,1:GOTO870
  21. 860 POKE 53264,0
  22. 870 POKE2040,13:POKE 53248,CO:POKE53249,(RO*8)+40:POKE53269,1
  23. 1370 DATA "BASED ON THE TELEVISION PROGRAM"
  24. 1380 DATA "CARD SHARKS PRODUCED BY"
  25. 1390 DATA "MARK GOODSON PRODUCTIONS."
  26. 1400 DATA "COPYRIGHT (C) 1988 THE CARD SHARKS"
  27. 1410 DATA "COMPANY.  ALL RIGHTS RESERVED."
  28. 1420 DATA""
  29. 1421 DATA"THIS COMPUTER PROGRAM WAS ADAPTED,"
  30. 1422 DATA"PUBLISHED AND DISTRIBUTED BY"
  31. 1423 DATA"SHAREDATA, INC., CHANDLER, ARIZONA."
  32. 1424 DATA"  (C) SHAREDATA[159], INC. 1988."
  33. 1425 DATA"ALL RIGHTS RESERVED."
  34. 1426 DATA""
  35. 1427 DATA""
  36. 1428 DATA"THIS COMPUTER PROGRAM WAS DEVELOPED"
  37. 1429 DATA"AND LICENSED IN CONJUNCTION WITH"
  38. 1430 DATA"SOFTIE, INC., PHOENIX ARIZONA."
  39. 1470 REM **SHAREDATA SPRITE**
  40. 1480 DATA255,255,255,128,0,1,191,255,253,191,231,253,191,195,253,191,129,253
  41. 1481 DATA191,0,253,190,48,125,188,56,61,184,28,29,188,14,61,190,28,125
  42. 1482 DATA191,56,253,190,113,253,191,255,253,191,255,253,177,7,253,187,87,253
  43. 1483 DATA187,123,253,128,0,1,255,255,255
  44. 6000 GOSUB 7000:REM DISPLAY PROMPT
  45. 6001 POKE53269,0:POKE53249,0:REM DISABLESPRITES
  46. 6010 CLOSE2:OPEN2,8,2,"0:CARD SHARKS,P,R"
  47. 6015 CLOSE15:OPEN15,8,15:INPUT#15,ER$:IFVAL(ER$)=0THENGOTO6025
  48. 6020 PRINT:PRINT"[147]WRONG DISK TRY AGAIN..."
  49. 6021 POKE53280,2:FORX=1TO2000:NEXT:RESTORE:GOTO450
  50. 6025 PRINT"[147]LOADING PLEASE WAIT"
  51. 6030 PRINT"[144]LOAD"CHR$(34)"CARD SHARKS"CHR$(34)",8"
  52. 6035 POKE198,6
  53. 6040 POKE631,19:POKE632,13:POKE633,82:POKE634,85:POKE635,78:POKE636,13
  54. 6045 NEW
  55. 7000 POKE 198,0
  56. 7010 A$(1)="":A$(2)="[155]":A$(3)="[152]":A$(4)="[151]":A$(5)="[144]"
  57. 7020 ME$="         <PRESS ANY KEY>"
  58. 7030 M1$="         >PRESS ANY KEY<"
  59. 7040 FORJ=5TO1STEP-1:PRINT"";A$(J);ME$
  60. 7049 T1=PEEK(55387)
  61. 7050 FORX=1 TO 11:T2=PEEK(55387+X):POKEX+55387,T1:T1=T2:NEXT:POKE55387,T1:NEXT
  62. 7060 FORJ=1TO5:PRINT"";A$(J);M1$
  63. 7069 T1=PEEK(55387)
  64. 7070 FORX=1 TO 11:T2=PEEK(55387+X):POKEX+55387,T1:T1=T2:NEXT:POKE55387,T1:NEXT
  65. 7071 PRINTA$(1);
  66. 7080 IF (PEEK(198)=0) GOTO7040
  67. 7090 PRINT"":POKE 198,0:RETURN
  68.